home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Amiga-E / E_v3.2a / Src / Utils / Mem.e < prev    next >
Text File  |  1992-09-02  |  711b  |  30 lines
  1. /* A very small util to dump memory in a shell.
  2.    usage: MEM <adr>                    
  3.  
  4.   simply dumps memory in a shell, usefull for hardcore-kamikaze
  5.   debugging and the like.
  6.  
  7.   try:
  8.    1> mem $f80000        ; only if you have a non-moved kick2.0 or better
  9.  
  10. */
  11.  
  12. PROC main()
  13.   DEF adr,a,b,radr:PTR TO LONG,c,r
  14.   adr,r:=Val(arg)
  15.   IF r=0
  16.     WriteF('Usage: MEM <adr>\n')
  17.   ELSE
  18.     adr:=adr AND -2     /* no odd adr */
  19.     FOR a:=0 TO 7
  20.       radr:=a*16+adr
  21.       WriteF('$\r\z\h[8]:   ',radr)
  22.       FOR b:=0 TO 3 DO WriteF('\r\z\h[8] ',radr[b])
  23.       WriteF('  "')
  24.       c:=radr
  25.       FOR b:=0 TO 15 DO Out(stdout,IF (c[b]<32) OR (c[b]>126) THEN "." ELSE c[b])
  26.       WriteF('"\n')
  27.     ENDFOR
  28.   ENDIF
  29. ENDPROC
  30.